assume	cs:codesg,ds:datasg
datasg	segment
	db 'BaSiC'
	db 'MinIX'
datasg	ends

codesg	segment
 start:	mov ax,datasg
	mov ds,ax

	mov bx,0
	mov cx,5
s:	mov al,0[bx]
	and al,11011111B
	mov 0[bx],al
	mov al,5[bx]
	or al,00100000B
	mov 5[bx],al
	inc bx
	loop s

	mov ax,4c00H
	int 21H

codesg ends
end start
